1000 REM ******************
1010 REM *                *
1020 REM *  64 NEWS DESK  *
1030 REM *                *
1040 REM *   BASIC DEMO   *
1050 REM *       BY       *
1060 REM *   MIKE  BENN   *
1070 REM *                *
1080 REM ******************
1090 REM
1100 REM ******************
1110 REM *                *
1120 REM * START ADDRESS  *
1130 REM *   SA = 5947    *
1140 REM *                *
1150 REM * SYS SA,        *
1160 REM * SCREEN SELECT, *
1170 REM * TIME DELAY,    *
1180 REM * STRING         *
1190 REM *                *
1200 REM * SYS SA+3,      *
1210 REM * (INSET SCREEN) *
1220 REM * SCREEN COLOUR, *
1230 REM * SPT. DEF. T/L, *
1240 REM * SPT. COL. T/L, *
1250 REM * SPT. DEF. T/R, *
1260 REM * SPT. COL. T/R, *
1270 REM * SPT. DEF. B/L, *
1280 REM * SPT. COL. B/L, *
1290 REM * SPT. DEF. B/R, *
1300 REM * SPT. COL. B/R  *
1310 REM *                *
1320 REM * SYS SA+6,      *
1330 REM * (RETURN BASIC) *
1340 REM *                *
1350 REM ******************
1360 REM
1370 REM ******************
1380 REM *                *
1390 REM *    WARNING     *
1400 REM *                *
1410 REM *  DO NOT USE    *
1420 REM * ANY STRING OF  *
1430 REM * MORE THAN 160  *
1440 REM *  CHARACTERS    *
1450 REM *                *
1460 REM ******************
1470 REM
1480 A1$="HELLO AND WELLCOME TO THE DESK TOP VIDEO PROGRAM "
1490 A2$="WEVE HAVE A PACKED PROGRAM FOR YOU SO ITS OVER TO THE NEWS DESK "
1500 A3$=" THE TOP NEWS STORY IS THAT A POLICEMAN HAS FIXED A WHEEL CLAMP "
1510 A4$="TO ONE THE ROYAL CARS WHILE PARKED ON A DOUBLE YELLOW   LINE "
1520 A5$="THE QUEEN IS SAID NOT TO BE AMUSED"
1530 A6$="BRITAIN IS HELPING TO LEAD THE FIGHT    AGAINST COMPUTER VIRUSES "
1540 A7$="       SPORTS NEWS "
1550 A8$="A NEW COMPUTER FOOTBALL GAME HAS BEEN   DEVELOPED PROMISING A MORE "
1560 A9$="REALISTIC    GAME "
1570 B1$=" IT INCLUDES PITCH INAVSIONS AND FIGHTS IN THE STANDS "
1580 B2$="CITY NEWS COMPUTERIZED BANKING TAKES    ANOTHER STEP BACK "
1590 B3$="AS A BANK IN THE WALL COMPUTER FAILS TO DELIVER ANY MONEY "
1600 B4$="AND THATS THE NEWS SO FAR CHUCK "
1610 B5$="THANKS TOM   COMPUTER GRAPHICS ARE THEY OVERTAKING TELEVISION "
1620 B6$=" TUNE IN TOMMOROW FOR AN IN DEPTH REPORT "
1630 B7$="THAT ABOUT WRAPS IT UP SO ITS GOODNIGHT FROM ME "
1640 B8$="AND ITS GOOBYE FROM ME "
1650 SA=5947
1660 REM *********
1670 REM * INTRO *
1680 REM *********
1690 SYSSA+3,0,63,1,50,15,50,15,63,1
1700 SYSSA,1,20,A1$+A2$
1710 GOSUB2310
1720 REM ***************
1730 REM * NEWS ITEM 1 *
1740 REM ***************
1750 SYSSA+3,0,55,1,56,1,59,1,60,1
1760 SYSSA,0,20,A3$+A4$
1770 SYSSA,0,20,A5$
1780 GOSUB2310
1790 REM ***************
1800 REM * NEWS ITEM 2 *
1810 REM ***************
1820 SYSSA+3,6,51,5,52,5,53,5,54,5
1830 SYSSA,0,20,A6$
1840 X=0:Y=0
1850 A=64:B=65:D=66:E=67:F=10:G=50
1860 C=0:C1=1:C2=1:C3=1:C4=1
1870 GOSUB2230
1880 GOSUB2310
1890 REM ***************
1900 REM * NEWS ITEM 3 *
1910 REM ***************
1920 SYSSA+3,0,55,1,56,1,61,1,62,1
1930 SYSSA,0,20,A7$
1940 SYSSA,0,20,A8$+A9$
1950 SYSSA,0,20,B1$
1960 GOSUB2310
1970 REM ***************
1980 REM * NEWS ITEM 4 *
1990 REM ***************
2000 SYSSA+3,0,55,1,56,1,158,1,159,1
2010 SYSSA,0,20,B2$+B3$
2020 GOSUB2310
2030 REM ***************
2040 REM * NEWS ITEM 5 *
2050 REM ***************
2060 SYSSA+3,0,55,1,56,1,57,1,58,1
2070 SYSSA,0,20,B4$
2080 GOSUB2310
2090 REM ***************
2100 REM * NEWS DEMO 1 *
2110 REM ***************
2120 SYSSA+3,0,63,1,63,1,63,1,63,1
2130 SYSSA,1,20,B5$
2140 GOSUB2320
2150 SYSSA+3,0,55,1,56,1,57,1,58,1
2160 SYSSA,0,20,B6$
2170 REM CLOSE
2180 SYSSA+3,0,63,1,63,1,63,1,63,1
2190 SYSSA,1,20,B7$
2200 SYSSA+3,0,55,1,56,1,57,1,58,1
2210 SYSSA,0,20,B8$
2220 SYSSA+6:END
2230 Y=Y+1:X=X+1:G=40
2240 SYSSA+3,C,A+X,C1,B+X,C2,D+X,C3,E+X,C4
2250 IFX=FTHENX=0:IFY=GTHEN2270
2260 GOTO2230
2270 RETURN
2280 SYSSA+3,C,A+X,C1,B+X,C2,D+X,C3,E+X,C4
2290 RETURN
2300 FORTT=0TO200:NEXT:RETURN
2310 FORT=0TO500:NEXT:RETURN
2320 REM PATTERN ANIMATION
2330 Y=0:X=0
2340 A=149:B=149:D=153:E=153:F=4
2350 C=0:C1=1:C2=1:C3=1:C4=1
2360 GOSUB2230
2370 REM SQUARE ANIMATION
2380 Y=0:X=0:G=40
2390 A=144:B=144:D=144:E=144:F=5
2400 C=0:C1=1:C2=1:C3=1:C4=1
2410 GOSUB2230
2420 REM COLOUR DEMO
2430 A=63:B=63:D=63:E=63
2440 C1=C1+1:C2=C1+1:C3=C2+1:C4=C4+1:GOSUB2280:GOSUB2300
2450 IFC1=15THEN2470
2460 GOTO2440
2470 C=0:C1=1:C2=1:C3=1:C4=1
2480 GOSUB2280
2490 RETURN
2500 REM
2510 REM ******************
2520 REM *                *
2530 REM *  THIS PART OF  *
2540 REM *  THE DEMO IS   *
2550 REM *  FOR USE WITH  *
2560 REM *   THE CURRAH   *
2570 REM * SPEECH 64 AND  *
2580 REM *  MAY REQUIRE   *
2590 REM *  ADDAPTATION   *
2600 REM * FOR USE WITH   *
2610 REM *  OTHER SPEECH  *
2620 REM *    SOFTWARE    *
2630 REM *                *
2640 REM ******************
2650 REM
2660 S1$="SORRY FOR THE LOSS OF SOUND PROGRAMS    WILL CONTINUE LATER "
2670 S2$="[S(OR)(EE)] [F(OR)] (DTH) LOSS OV [S(OW)ND] [PR(OO)(GG)RAMS] "
2680 S3$="WILL [KONTI(UU)] [L(AA)T(ER)]"
2690 REM
2700 SA=5947
2710 INIT:REM INITALISE SPEECH SOFTWARE
2720 SAY S2$+S3$:REM TELL YOUR SPEECH UNIT TO SAY S2$+S3$
2730 SYSSA+3,0,63,1,63,1,63,1,63,1
2740 SYSSA,1,20,S1$
2750 KOFF:REM TURN OFF YOUR SPEECH UNIT
2760 END